Private Sub UserForm_Initialize()

    Me.Caption = " Է "

    With txt
        .Value = Cells(Rows.Count, "B").End(xlUp).Value + 1
        .Enabled = False
    End With

    With cmb
        .AddItem ""
        .AddItem ""
        .AddItem "븮"
        .AddItem ""

        .ColumnWidths = .Width
        .ListWidth = .Width
    End With

End Sub